GGplaceTs.asp 忠网网站广告管理系统 ZonGG V1.3 - ASP源码程序

gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGplaceTs.asp

    <!-- #INCLUDE FILE="login.asp" -->
<SCRIPT   language="JavaScript">    
var    currentpos,timer;    

function    initialize()    
{    
timer=setInterval("scrollwindow()",10);    
}    
function    sc(){    
clearInterval(timer);    
}    
function    scrollwindow()    
{    
currentpos=document.body.scrollTop;    
window.scroll(0,++currentpos);    
if    (currentpos    !=    document.body.scrollTop)    
sc();    
}    
document.onmousedown=sc    
document.ondblclick=initialize    
</SCRIPT>
<body topmargin="0" leftmargin="5" rightmargin="0" bottommargin="0" bgcolor="#FFFFFF">

  <div align="center">
    <center>
    <table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber1" bgcolor="#FFFFFF" height="100%">
       <tr>
        <td valign="top"><font class=red>>>></font> 显示于该广告位下的广告条 (双击滚屏，单击停止)<br>

<%
	
  Adids=split(trim(request("adids")),",")

  For i=0 to Ubound(Adids)

  if isnumeric(Adids(i)) then

  sql="select ADname from Advertisement where ADid="&cint(Adids(i))
  rs.open sql,conn,1,1
  if not rs.eof then
  response.write "<font class=red> "&i+1&". </font><a href=javascript:opw('GGtiaoCz.asp?a=Yl&id="&Adids(i)&"','ZonGG',800,600)>"&rs(0)&"</a>&nbsp; <font class=red>ID="&Adids(i)&"</font> <a href=javascript:opw('GGtiaoCz.asp?a=Edit&id="&Adids(i)&"','ZonGG',800,600)>[修]</a><br> "          
  end if
  rs.close
  
  end if
  Next
       
        %>
<br>
        </td>
      </tr>       <tr height=22>
        <td align=right><a href="#top">TOP</a>&nbsp;</td>
      </tr>

      </table>
    </center>
</div>